home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / RUNTIME / HMU.TXT < prev    next >
Encoding:
Text File  |  2001-02-10  |  1.1 KB  |  43 lines
  1. :l.hmutopix
  2. hmutopix_:
  3. 001B56A8      link    a6,#$FFFC
  4. 001B56AC      move.w    $8(a6),d0
  5. 001B56B0      ext.l    d0
  6. 001B56B2      move.l    d0,-(a7)
  7. 001B56B4      move.w    $1E5646,d0    zdevice_
  8. 001B56BA      ext.l    d0
  9. 001B56BC      lsl.l    #1,d0
  10. 001B56BE      movea.l    d0,a0
  11. 001B56C0      adda.l    #$1DEC3C,a0    axdpi_
  12. 001B56C6      move.w    (a0),d0
  13. 001B56C8      ext.l    d0
  14. 001B56CA      move.l    d0,-(a7)
  15. :l
  16. 001B56CC      jsr    $1DCBF6    lrmul
  17. 001B56D2      addq.w    #$8,a7
  18. 001B56D4      move.l    d0,$FFFC(a6)
  19. 001B56D8      move.l    #$510,-(a7)
  20. 001B56DE      move.l    $FFFC(a6),-(a7)
  21. 001B56E2      jsr    $1DCB8A    lrrem
  22. 001B56E8      addq.w    #$8,a7
  23. 001B56EA      cmpi.l    #$288,d0
  24. 001B56F0      ble.b    $1B56F6
  25. 001B56F2      moveq.l    #$1,d0
  26. 001B56F4      bra.b    $1B56F8
  27. 001B56F6      clr.w    d0
  28. :l
  29. 001B56F8      move.w    d0,$8(a6)
  30. 001B56FC      move.l    #$510,-(a7)
  31. 001B5702      move.l    $FFFC(a6),-(a7)
  32. 001B5706      jsr    $1DCB36    lrdiv
  33. 001B570C      addq.w    #$8,a7
  34. 001B570E      move.l    d0,$FFFC(a6)
  35. 001B5712      move.w    $FFFE(a6),d0
  36. 001B5716      add.w    $8(a6),d0
  37. 001B571A      unlk    a6
  38. 001B571C      rts
  39. vmutopix_:
  40. 001B571E      link    a6,#$FFFC
  41. 001B5722      move.w    $8(a6),d0
  42. :transcript off
  43.